home *** CD-ROM | disk | FTP | other *** search
/ Aminet 50 / Aminet 50 (2002)(GTI - Schatztruhe)[!][Aug 2002].iso / Aminet / util / dir / CTree.lha / CTree next >
Text File  |  2002-05-12  |  1KB  |  39 lines
  1. .K Rep1,Rep2
  2. .bra {
  3. .ket }
  4. ;
  5. ;$VER: 1.0 (12.05.2002) - © Hervé Dupont en collaboration avec Jacques Vanhove.
  6. ;
  7. IF {Rep1} NOT GT " "
  8.   ECHO "*E[1mSyntaxe*E[0m : CTree <Rep1> <Rep2|->"
  9.   ECHO "Rep1 : Chemin de l'arborescence à copier. Ex. : dh0:tvx/*E[2mcelui-ci*E[0m."
  10.   ECHO "Rep2 : Destination de l'arborescence. Ex. : dh2:*E[2mICI*E[1m/*E[0m."
  11.   ECHO "Rep2 : - Mode test. Affichage sans création de l'arborescence."
  12.   ECHO "La terminaison *E[1m« : »*E[0m ou *E[1m« / »*E[0m dans Rep2 est obligatoire !"
  13.   QUIT
  14. ENDIF
  15. IF NOT exists {Rep1}
  16.   ECHO "*E[1m  Le chemin « {Rep1} » n'est pas valide !*E[0m*N"
  17.   QUIT
  18. ENDIF
  19. IF {Rep2} NOT GT " "
  20.   ECHO "*E[1m  Veuillez préciser une destination.*E[0m"
  21.   ECHO "*E[2m  La terminaison doit être « : » ou « / » !*E[0m*N"
  22.   QUIT
  23. ENDIF
  24. PCD {Rep1}
  25. ECHO "Lecture de l'arborescence initiale..."
  26. list >ram:tparbrv01 lformat "MakeDir *"{Rep2}%P%S*"" dirs all
  27. IF {Rep2} EQ "-"
  28.   ECHO "Mode Test, visualisation uniquement..."
  29.   type ram:tparbrv01
  30. ELSE
  31.   ECHO "Création de l'arborescence dans {Rep2}..."
  32.   Failat 15
  33.   MakeDir {Rep2} all
  34.   Execute RAM:tparbrv01
  35.   Delete RAM:tparbrv01 quiet
  36. ENDIF
  37. PCD
  38. Failat 10
  39.